data-raw/Création base ASDEPsl.R

In patrickaubert/asdep: Package R pour l'analyse de l'aide sociale départementale, à partir des données statistiques de la DREES et de l'Insee

# --------------------------------------------------------------------------------------------------------------
# Création de la base des données d'aide sociale, à partir des bases déjà extraites et incluses dans le package
# --------------------------------------------------------------------------------------------------------------

#library(tidyverse)
library(dplyr)

#varcom <- intersect( names(ASDEPslbenef), names(ASDEPsldepenses) )
#
#ASDEPsl <- ASDEPslbenef %>%
#  left_join(ASDEPsldepenses, by = varcom) %>%
#  left_join(PopDepartementales, by = varcom)

mergecom <- function(tab1,tab2) {full_join(tab1,tab2,by = intersect( names(tab1), names(tab2) ))}

ASDEPsl <- ASDEPslbenef %>%
  mergecom(ASDEPsldepenses) %>%
  mergecom(ASDEPslperso) %>%
  mergecom(OARSAsl) %>%
  mergecom(MINSOCsl) %>%
  mergecom(PopDepartementales)

ASDEPsl_description <- bind_rows(
  ASDEPslbenef_description,
  ASDEPsldepenses_description,
  ASDEPslperso_description,
  OARSAsl_description,
  MINSOCsl_description,
  PopDepartementales_description
)


# ===================================================================================
# Dernière actualisation de la base réalisée le : 24/06/2022

usethis::use_data(ASDEPsl,
                  ASDEPsl_description,
                  overwrite = T)